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{SX-} | 
PROGRAM Edit; 


Edit -- A small sample application written in Pascal 
by Macintosh User Education 


USES {SU-} 
SU Obj/QuickDraw } QuickDraw, 
SU 0bj3/0SIntf } OSInt£, 
{SU 0bj/ToolIntf ToolIntf£; 
CONST 


lastMenu = 3; { number of menus } 

appleMenu = 1; { menu ID for desk accessory menu } 
fileMenu = 256; { menu ID for File nenu } 
editMenu = 257; { menu ID for Edit menu } 


VAR 
myMenus: ARRAY [1..lastMenu] OF MenuHandle; 
screenRect, dragRect, pRect: Rect; 
doneFlag, temp: BOOLEAN; 
nyEvent: EventRecord; 
code, refNum: INTEGER; 
wRecord: WindowRecord; 
myWindow, whichWindow: WindowPtr; 
theMenu, theItem: INTEGER; 
hTE: TEHandle; 


PROCEDURE SetUpMenus; 
{ Once-only initialization for menus } 


i: INTEGER; 
appleTitle: STRING[1);: 
BEGIN 
InitMenus; { initialize Menu Manager } 
appleTitle := © °; appleTitle{1] := CHR(appleSynbol); 


myMenus[1] := NewMenu(appleMenu, appleTitle); 
AddResMenu(myMenus[1], ‘DRVR'); { desk accessories } 
myMenus[2] := GetMenu(fileMenu); 
myMenus[3] := GetMenu(editMenu); 
FOR i := 1 TO lastMenu DO InsertMenu(myMenus [i], 0); 
DrawMenuBar ; 

END; { of SetUpMenus } 


PROCEDURE DoCommand(mResult: LongInt); 


VAR 
name: STR255; 


BEGIN 
theMenu := HiWord(mResult); theIten := LoWord(mResult); 
CASE theMenu OF 


appleMenu: 
BEGIN 
GetI ten(myMenus [1], theI ten, nane); 
refNun := OpenDeskAcc(nane); 
END; 
fileMenu: doneFlag := TRUE; { Quit } 
edi tMenu: 
BEGIN 
IF NOT SystenEdit(theIten-1) THEN 
BEGIN 


SetPort (myWindow); 
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CASE theItem OF 


1: TECut(hTE); 
2: TECopy(hTE); 


3: TEPaste(hTE); 
END; { of item case } 
END; 
END; { of editMenu } 


END; { of menu case } 
HiliteMenu(0); 


END; { of DoConnand } 


BEGIN { main progran } 
InitGraf(a@thePort); 
Ini tFonts; 
FlushEvents(everyEvent, 0); 
Ini tWindows; 
SetUpMenus; 
TEInit; 
InitDialogs(NIL); 
Ini tCursor; 


screenRect := screenBits. bounds; 
SetRect (dragRect, 4, 24, screenRect. right-4, screenRect. botton-4); 
doneFlag := FALSE; 


myWindow := GetNewWindow(256, awRecord, POINTER(-1)); 
SetPort (myWindow); 


pRect := thePort’.portRect; 
InsetRect(pRect, 4, 0); 
hTE := TENew(pRect, pRect); 
REPEAT 
SystenTask; 
TEI dle(hTE); 
temp := GetNextEvent (everyEvent, nyEvent); 
CASE myEvent. what OF 


mouseDown: 
BEGIN 
code := FindWindow(nyEvent. where, whichWindow); 
CASE code OF 


inMenuBar: DoCommand(MenuSelect (myEvent. where) ); 
inSysWindow: SystenClick(myEvent, whichWindow); 
inDrag: DragWindow(whichWindow, nyEvent. where, dragRect); 


inGrow, inContent: 

BEGIN 

IF whichWindow<>FrontWindow THEN 
SelectWindow(whichWindow) 

ELSE 
BEGIN 
GlobalToLocal (nyEvent. where); 
TEClick(myEvent. where, FALSE, hTE); 
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END; 


END; { of code case } 
END; { of mouseDown } 
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keyDown, autoKey: 
IF myWindow=FrontWindow THEN 
TEKey (CHR(myEvent. message MOD 256), hTE); 


activateEvt: 
IF ODD(myEvent.modifiers) { window is becoming active } 
THEN 


TEActivate(hTE) 

SE 

TEDeactivate(hTE); 

updateEvt: 
BEGIN 
SetPort (myWindow); 
BeginUpdate(myWindow); 
TEUpdate(thePort . portRect, hTE); 
EndUpdate(myWindow); 
END; { of updateEvt } 
END; { of event case } 


UNTIL doneFlag; 
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* EditResDef -- Resource input for small sample application 
* Written by Macintosh User Education 


Exanple/Edit.Rsrc 


Type MENU 
, 256 
File 

Quit 


r 257 
Edit 
Cut 


Copy 
Paste 


Type WIND 
, 290 
A Sanple 
50 40 300 450 
Visible NoGoAway 
0 


0 
Type EDIT = SIR 
_O 
Edit Version 1.0 - 12 December 83 


Exanple/editL, 0 
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END OF DOCUMENT 
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